home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / blanker / blank.mod < prev    next >
Text File  |  1990-02-04  |  704b  |  22 lines
  1. (*====================================================================
  2.   = Program:       Blank.MOD                                         =
  3.   = Programmer:    Peter M. Perchansky                               =
  4.   = Purpose:       EGA/VGA Screen Blanker.  Blanks screen, waits for =
  5.   =                key press, then turns screen back on.             =
  6.   = Date Written:  02-04-90                                          =
  7.   ====================================================================*)
  8.  
  9. (*$M CODE*)
  10. MODULE Blank;
  11.  
  12. FROM PMPDos IMPORT ReadKey, ScreenOn, ScreenOff;
  13.  
  14. VAR
  15.     keyPress : CHAR;
  16.  
  17. BEGIN
  18.     ScreenOff ();
  19.     keyPress := ReadKey ();
  20.     ScreenOn ();
  21. END Blank.
  22.